home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
programr
/
vbasic
/
loanapp.exe
/
LOANF7.FRM
< prev
next >
Wrap
Text File
|
1993-07-22
|
7KB
|
237 lines
VERSION 2.00
Begin Form Form7
BackColor = &H00808080&
ClientHeight = 3660
ClientLeft = 360
ClientTop = 1875
ClientWidth = 8880
ControlBox = 0 'False
Height = 4065
Left = 300
LinkMode = 1 'Source
LinkTopic = "Form7"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3660
ScaleWidth = 8880
Top = 1530
Width = 9000
Begin CommandButton Command3
Caption = "Cancel"
Height = 300
Left = 4980
TabIndex = 10
Top = 3150
Width = 3000
End
Begin CommandButton Command1
Caption = "Ok"
Height = 300
Left = 885
TabIndex = 9
Top = 3150
Width = 3000
End
Begin PictureBox Picture3
Height = 900
Left = 45
ScaleHeight = 870
ScaleWidth = 8760
TabIndex = 2
Top = 2010
Width = 8790
Begin VBedit BEditF7
CellHeight = 480
CellWidth = 360
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 3
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 45
TabIndex = 8
Top = 330
Version = 268435458
Width = 8670
End
Begin Label Label3
Caption = "Source of Down Payment, Settlement Charge and/or Subordinate Financing:"
Height = 225
Left = 45
TabIndex = 5
Top = 45
Width = 6555
End
End
Begin PictureBox Picture4
Height = 900
Left = 5340
ScaleHeight = 870
ScaleWidth = 3465
TabIndex = 11
Top = 1035
Width = 3495
Begin CheckBox Check1
Caption = "Leasehold"
Height = 285
Index = 2
Left = 1800
TabIndex = 14
Top = 390
Width = 1230
End
Begin CheckBox Check1
Caption = "Fee Simple"
Height = 270
Index = 1
Left = 285
TabIndex = 13
Top = 390
Width = 1275
End
Begin Label Label4
Caption = "Estate will be held in:"
Height = 255
Left = 45
TabIndex = 12
Top = 45
Width = 1920
End
End
Begin PictureBox Picture2
Height = 900
Left = 45
ScaleHeight = 870
ScaleWidth = 5190
TabIndex = 1
Top = 1035
Width = 5220
Begin VBedit BEditF7
CellHeight = 480
CellWidth = 360
CharSet = 16651
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 2
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 45
TabIndex = 7
Top = 330
Version = 268435458
Width = 5100
End
Begin Label Label2
Caption = "Manner in which title will be held:"
Height = 225
Left = 45
TabIndex = 4
Top = 45
Width = 2955
End
End
Begin PictureBox Picture1
Height = 900
Left = 45
ScaleHeight = 870
ScaleWidth = 8760
TabIndex = 0
Top = 60
Width = 8790
Begin VBedit BEditF7
CellHeight = 480
CellWidth = 360
CharSet = 16651
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 1
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 45
TabIndex = 6
Top = 330
Version = 268435458
Width = 8670
End
Begin Label Label1
Caption = "Title will be held in what Name(s):"
Height = 225
Left = 30
TabIndex = 3
Top = 45
Width = 2925
End
End
End
Sub Check1_Click (Index As Integer)
If Form7.Visible = True Then
If Form7.Check1(Index).Value = 1 Then
For i = 1 To 2
If i <> Index Then
Form7.Check1(i).Value = 0
End If
Next i
End If
End If
End Sub
Sub Command1_Click ()
MainRec.F.F1 = Form7.BEditF7(1).Text
MainRec.F.F2 = Form7.BEditF7(2).Text
MainRec.F.F3 = Form7.BEditF7(3).Text
For i = 1 To 2
If Form7.Check1(i).Value = 1 Then
MainRec.F.FC1 = i
Exit For
Else
MainRec.F.FC1 = 0
End If
Next i
UpdateLabelF
Form7.Hide
End Sub
Sub Command3_Click ()
Form7.Hide
End Sub
Sub Form_Load ()
Form7.Left = 300
Form7.Top = (Screen.Height - Form7.Height) / 2
End Sub